Program DateTest;
uses
    Dos,crt;

Type
{Tipos de dato a usar en los archivos}
        FechaString = String[8];
        String30 = String[30];
        
        Pedido=Record
                Numero:Word;
                Fecha:FechaString;
                Electrodomestico:String30;
        End;


{****Manejo de Pedidos****}

Function CalcularFechaHoy() : FechaString;
Var Year,Month,Day,WDay: Word;
    NewDate: FechaString;       
    DayString,MonthString,YearString:String[4];
Begin
    GetDate(Year,Month,Day,WDay);
        
    Str(Trunc(Day),DayString);
    Str(Trunc(Year),YearString);
    Str(Trunc(Month),MonthString);
    
    CalcularFechaHoy := Concat(YearString,MonthString,DayString);
End;

{*********/Procedimientos y Funciones*************}
Begin
    	ClrScr;
        Writeln(CalcularFechaHoy());
        Readln;
End.
